home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / temacd / audacity / audacity-win-unicode-1.3.2.exe / {app} / Plug-Ins / delay.ny < prev    next >
Lisp/Scheme  |  2003-10-01  |  767b  |  23 lines
  1. ;nyquist plug-in
  2. ;version 1
  3. ;type process
  4. ;name "Delay..."
  5. ;action "Performing Delay Effect..."
  6. ;info "Demo effect for Nyquist by Roger Dannenberg.\nThis effect creates a fixed number of echos."
  7. ;control decay "Decay amount" int "dB" 6 0 24
  8. ;control delay "Delay time" real "seconds" 0.5 0.0 5.0
  9. ;control count "Number of echos" int "times" 5 1 30
  10.  
  11. ;; Note: this effect will use up memory proportional to
  12. ;; delay * count, since that many samples must be buffered
  13. ;; before the first block is freed.
  14.  
  15. (defun delays (s decay delay count)
  16.   (if (= count 0) (cue s)
  17.      (sim (cue s)
  18.             (loud decay (at delay (delays s decay delay (- count 1)))))))
  19. (stretch-abs 1 (delays s (- 0 decay) delay count))
  20.  
  21. ; arch-tag: 9dc830cf-962c-4429-a587-b7607b5040fa
  22.  
  23.